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RIBIER 

A PROGRAM FOR THE PDP-8/1 ENABLING THE TRANSITION 
FROM THE PS/8 SYSTEM TO THE PAPER-TAPE SYSTEM 


DECUS Program Library Write-up 


DECUS NO. 8-477 


During the development of programs for real-time applications written in PAL III or PAL-8 
assembly language it can easily happen that parts of the program are destroyed during the 
test when an error is encountered, e. g., when a wrong jump address is used and data are 
interpreted as instructions. Because there is no possibility of protecting parts of the memory, 
the top pages in field 0 and field 1 can also be altered. When new binary files are loaded 
with the PS8 loader program, the DECtape units must be on all the time, e. g., to use the 
ODT facility. If an error as mentioned occurs, it can happen that the directory of the tapes 
or even the content of files is altered, depending on the error, which is of course very 
annoying. At best the whole bootstrap procedure to load the PS8 system must be executed. 

I therefore found it easier to use paper tapes for the object programs during the debugging 
phase. To enable a comfortable change to the conventional paper tape system, I designed the 
program "RIBIER, " which can be called from a DECtape. The aim of this program is to load 
the high speed rim loader and the bin loader in both fields in their normal position on the top 
page. Since it is not possible to save programs directly in these regions under the PS8 system, 
a relocation technique is used. The loaders are saved on the page 3600-3777 instead of 7600- 
7777 and relocated in the correct position afterwards. Finally all the core up to address 7477 
is cleared. This gives the advantage that every attempt of testing a program has the same 
initial conditions. The flow chart in Fig. 1 shows the idea of the program. The version 
DEC-08-LBAA-D, May 1967 of the bin loader has been used. 

Because the loaders are now doubled, it is quite possible that one loader is still working when 
an error of the mentioned kind occurs. Therefore it is possible to reload the program (or the 
PS8 bootstrap routine) without the need to toggle in instructions on the console. 
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PALb V/10/71 


PA GE j 


/ 


PP.'JGPiAH LOADING THE fllta- fitiV BIN-LOADERS 
/ FIELD 0 AND 1 AND CLEANING THE 
/ MitWtiftl ES FROM ABBESS 0 TO 7^77* 

/ HIGfl-SPKED VERSION OF Rltf-LOABEtf . 1 

/ %Y\~turr?l* o m f\ Q * ^ C " 06 " L ' 6 ^* D f WAY *<V 19 67. 

/ 9/J0/71 t, p. UJjfEiAiil r 




*3400 



3 AO A 

7 300 

START, 

CLA CLL 


3 AO 1 

3236 


DCA FLAX 


3402 

1241 


TAD PL6201 


3403 

3214 


DCA CHAFIE 


3404 

1243 

START 1, 

TAD MI0200 


340 5 

3233 


DCA CTRX 


340 6 

1240 


TAD PL7600 


40 7 

3234 


OCA PTRX 


34 JO 

1 23 7 


TAD PL3600 


34 1 j 

323 5 


DCA PTRY 


34 1 2 

620 1 

RELOC, 

CDF 00 

/ RELOCATION OF THE LOADERS 

34 1 3 
34 14 

1 63 5 
0000 

CHAFIE, 

TAD I PTRY 

0 

/ IN THE ORIGINAL POSITION 

34 15 

3634 


DCA I PTRX 


3416 

2234 


1SZ PTRX 


34 1 7 

2235 


IS7 PTRY 


3420 

2233 


ISZ CTRX 


3421 

521 2 


JMP RELOC 


3422 

1236 


TAD FLAX 


3423 

7 640 


SXA CLA 


3424 

5231 


JMP .+5 


3425 

2236 


IS7. FLAX 


3426 

1242 


TAD PL6211 


3427 

3214 


DCA CHAFIE 


3430 

520 4 


JMP START 1 


3431 

6212 


CJF 10 


.432 

5 64 4 


JMP I ILOE 

/ CLEARING OF THE CORES 

3433 

noon 

CTRX, 

VJ 


3434 

0000 

PTRX, 

0 


74 3 5 

0000 

PTRY, 

0 


3436 

0000 

FLAX, 

0 


3437 

3600 

PL36O0, 

3 600 


3440 

7 600 

PL. 7 600, 

7660 


3441 

620 1 

PL6201, 

620 1 


3442 

621 1 

PL.621 J , 

621 1 


3443 

7 600 

.MI 0200, 

-200 


3444 

7 500 

IlOE, 

LOESCH 
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PAL8 9/IB/Vi 


PAbE 1-1 


3600 
3 AM 1 
3 

3603 

3604 
360 5 
360 6 

360 7 
3610 

361 1 

36 1 2 
361 3 

3614 

3615 
36) 6 


3 6 P.6 
3627 

3630 

3631 
363? 

3633 

3634 

3635 
3 6 3 6 
3637 
3640 
3441 
3642 
^>643 
3644 
364 5 

3646 

3647 

3650 

3651 
36 52 

3653 

3654 

3655 
3 6 5 6 
3657 

3660 

3661 

3662 


EJECT 


/ BIN- P^M LOAIDgJLS/ 


7 402 

•+3600 

HLT 


740? 

HLT 


7 40? 

HLT 


7402 

HLT 


7 40? 

HLT 


7 402 

HLT 


7 402 

HLT 


7402 

HLT 


7402 

HLT 


7 402 

HLT 


00 GO 

+ 3612 

SWITCH/ 0 


0000 

MEMTEMz 0 


0000 

CHAR/ 0 


0000 

CHXSUM/ 0 


0000 

ORIGIN/ 0 



+ 3626 

/EXTRACT ERRORS/ FIELD 

0000 

BEGG/ 0 


3212 

DCA 

SWITCH 

4260 

JMS 

READ 

1 300 

TAD 

M3 76 

7 7 50 

SPA 

SNA CLA 

5237 

JMP 

. +4 

2212 

ISZ 

SWITCH 

7040 

CM A 


5227 

JMP 

BEGG+1 

1212 

TAD 

SWITCH 

7 640 

SZA 

CLA 

5230 

JMP 

BEGG+2 

1214 

TAD 

CHAR 

0274 

AND 

MASK 

1 34 1 

TAD 

M200 

7 511') 

SPA 


222 6 

ISZ 

BEGG 

77 50 

SPA 

SNA CLA 

562 6 

JMP 

I BEGG 

1214 

TAD 

CHAR 

0256 

AND 

FMASK 

1257 

TAD 

CHANGE 

32 1 3 

DCA 

MEMTEM 

5230 

JMP 

BEGG+2 

00 70 

FMASK/ 70 


620 1 

CHANGE/ CDF 


0000 

READ/ 0 


0000 

0 


603 3 

LOR/ KSF 



ASSEMBLED OM PAGE 3600 


/ SAFETY HALTS 


L/T 

/ SET SWITCH 
/ GET A CHARACTER 
/ TEST FOR 377 

/ NO 

/ YES: COMPLEMENT SWITCH 


/ NOT 377 
/ IS SWITCH SET? 

/ YES; IGNORE 
/ NO; TEST FOR CODE 
/ TYPES 


/ DATA OR ORIGIN 

/ DATA/ ORIGIN/ OR L/T 
/ FIELD SETTING 


/ CONTINUE INPUT 


/ WAIT FOR FLAG 
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PALS 9/28/71 PAGE 1-2 


AAA 3 

5262 


JMP 

. -1 

3664 

6>V36 


KRB 


3665 

321 4 


DC A 

CHAR 

3 6 6 6 

1214 


TAD 

CHAR 

366 7 

5 6 60 


JMP 

I READ 

3670 

60 1 1 

HIR* 

RSF 


367 1 

5270 


JMP 

• -1 

3672 

60 1 6 


RRB 

RFC 

3673 

5265 

- 

JMP 

LOR+3 

367 4 

0300 

MASK* 

300 




/ TRAILER CODE SEEN 

367 5 

4343 

B END* 

JMS 

ASSEMB 

367 6 

7041 


CIA 


367 7 

1215 


TAD 

CHKSUM 

3700 

7 402 

M37 6* 

HLT 


3701 

6032 

BEGIN* 

KCC 


370? 

60 1 4 


RFC 


3703 

6214 


RDF 


3704 

1257 


TAD 

CHANGE 

3705 

3213 


DCA 

MEMTEM 

370 6 

7604 


CLA 

OSR 

370 7 

7 700 


SMA 

CLA 

3710 

1353 


TAD 

HIRI 

37 1 1 

1 352 


TAD 

LORI 

37 12 

3261 


DCA 

READ+1 

3713 

4226 


JMS 

BEGG 

37 1 4 

5313 


JMP 

• - 1 

37 15 

321 5 

GO* 

DCA 

CHKSUM 

37 1 6 

121 3 


TAD 

MEMTEM 

3717 

3336 


DCA 

MEMFLD 

3720 

1214 


TAD 

CHAR 

372 1 

337 6 


DCA 

WORD 1 

3722 

4260 


JMS 

READ 

3723 

3355 


DCA 

WORD 2 

3724 

4226 


JMS 

BEGG 

3/2.5 

5275 


JMP 

BEND 

3726 

43-*3 


JMS 

ASSEMB 

'’727 

7420 


SNL 


J 7 30 

5336 


JMP 

MEMFLD 

3731 

321 6 


DCA 

ORIGIN 

3732 

1376 

CHEX* 

TAD 

WORD 1 

37 33 

i 355 


TAD 

W0RD2 

3734 

1215 


TAD 

CHKSUM 

3735 

5315 


JMP 

GO 

373 6 

0000 

MEMFLD* 

0 


3737 

3616 


DCA 

I ORIGIN 

3740 

2216 


ISZ 

ORIGIN 

37 4 1 

7600 

M200* 

7600 

3742 

5332 


JMP 

CHEX 

3743 

0000 

ASSEMB* 

0 


3744 

1 376 


TAD 

W0RD1 

37 4 5 

7 106 


CLL 

RTL 

37 4 6 

7006 


RTL 


37 47 

700 6 


RTL 



r 


* 


/ SAVE FIELD INSTRUCTION 


/ IGNORE LEADER 


/ LOOK AHEAD 
/ TRAILER* END 
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PALB 9/18/71 


PAG!C 1-3 


t 


37 50 

1355 


TAD VOPD2 



37 5 1 

5743 


JMP I ASSEMB 



37 52 

5262 

LORI/ 

JMP LOR 



37 53 

O0O6 

H I RI / 

H1K-LOR 



3754 

POPP 


0 



37^5 

'/'■ f| 0 

W0RD2* 

0 



37 56 

60 1 4 

BEG/ 

RFC 

/ START-ADKESSE 

RIM-LOADER 

37 57 

601 1 


RSF 



37 60 

5357 


JMP r : 



37 6 1 

60 1 6 


RRB C 



37 62 

7106 


CL L ,'TL 



37 63 

700 6 


RTL 



3764 

7510 


SPA 



37 65 

5374 


JMP WORD 1-2 



376 6 

700 6 


RTL 



37 67 

601 1 


RSF 



3770 

5367 


JMP .-1 



377 1 

6016 


RRB RFC 



3772 

7 420 


SNL 



3773 

3 77 6 


DCA I WORD 1 



377 4 

3376 


DCA WORD1 



377 5 

5357 


JMP BEG+1 



3776 

0000 

WORD 1/ 

0 



3777 

5301 


JMP BEGIN 

/ START ADRESSE 

BIN-LOADER 


% 

♦ 



7SOP 3324 
7 501 1 32 .1 

7502 3322 

7503 3323 

7504 3723 

7505 2322 

7506 7410 

7507 5312 

7510 2323 

7511 5304 

7512 1324 

7513 7640 

7514 5720 

/515 6201 

7516 2324 

7517 5301 

7520 7700 

7521 0300 

7522 0000 

7523 0000 

7524 0000 


FIELD 1 
*-7 500 

LOESCH/ DCA FLAY 
TAD CONST 
DCA CTR 
DCA PTR 

LOOP/ DCA I PTR 
ISZ CTR 
SKP 

JMP CHANGI 
ISZ PTR 
JMP LOOP 
CHANGI / TAD FLAY 
SZA CLA 
JMP I IENDE 
CDF 00 
ISZ FLAY 
JMP LOESCH+1 
IENDE/ 7700 
CONST/ -7 500 
CTR/ 0 

PTR/ 0 

FLAY/ 0 


/ LOESCHUN G DER SPEl CHER 


/ HALT IM BIN LOADER 
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